HELP !

how to loop back usr input if num > 6 or num= decimal point?

my code:
Public Sub Try()

Dim i As Integer
Dim sResult As String
Dim sStore As String
Dim sFreq(1 To 6) As String
Dim iResponse As Integer

For i = 1 To 6
sFreq(i) = i
Next


Do

sResult = Application.InputBox("Please Input a Frequency", "Frequency Input", _
"Please Input an Integer Value", Type:=1)

For i = 1 To 6
If sResult = sFreq(i) Then
sStore = sResult
ChDir "C:\Workbooks.Open" Filename:="C:\Testing.xls"
Sheets(i).Select
Call CreateChart

Exit Do
End If
Next
iResponse = MsgBox("Invalid input. Please try again.", vbOKOnly)
Loop Until iResponse = i
End Sub