Visual Basic, number range in IF statements - vba

Question

how would i write this line of c# in visual basic. im trying to get a input from the user and provide a result, given the input falls between a number range.
if int(>65 || <=73)
{
}
This is the code i have so far.
Dim Hb As String = txtInput1.Text
If IsNumeric(Hb) Then
Dim HbInt As Integer = Integer.Parse(Hb)
Else
Output("The Hb value needs to be numeric")
End If

Answer 1

For Reference See this.
This Dim Hb As String = txtInput1.Text is not allowed in vba and I assume txtInput1 is a named reference to a cell range.
You have to write it as below
Dim Hb As String: Hb = txtInput1.Text
Also this Dim HbInt As Integer = Integer.Parse(Hb) isn't right as well
The right way would be:
Dim HbInt As Integer: HbInt = CInt(Hb)
So the code for your need would be:
Sub NumRange()
Dim Hb As String: Hb = txtInput1.Text
if IsNumeric(Hb) then
Dim HbInt As Integer: HbInt = CInt(Hb)
if HbInt > 65 And HbInt <=73 then
Do things......
Else
Msgbox "Number Entered is out of Range"
End if
Else
Msgbox "Invalid Input."
End if
End Sub

Answer 2

Just expanding upon the answer provided by #NewGuy I'd rather use the Select Case statement to evaluate the number provided. This will allow for more options:
Option Explicit
Sub tmpTest()
Dim strHB As String
strHB = InputBox("Give me a number between 1 and 100", "Your choice...")
If IsNumeric(strHB) Then
Select Case CLng(strHB)
Case 66 To 73
MsgBox "You picked my range!"
Case 1 To 9
MsgBox "One digit only? Really?"
Case 99
MsgBox "Almost..."
Case Else
MsgBox "You selected the number " & strHB
End Select
Else
MsgBox "I need a number and not this:" & Chr(10) & Chr(10) & " " & strHB & Chr(10) & Chr(10) & "Aborting!"
End If
End Sub

Answer 3

Like this:
If HbInt > 65 And HbInt <= 73 Then
...
End If