there is a an type mismatch error i am getting, when i want to creat an XL file for my code.

Code:
                                      
Private Sub Command6_Click()
' Forward mode1
Dim scanner As Integer
Dim StrMsgn As Integer
Dim Forwardn As Integer
Dim StoreVal(20) As Integer
'StrMsgn = "forwardn" & vbCrLf
For Forwardn = 0 To Text9.Text
 If CInt(Text1.Text) > 0 And
...