Private Sub cmdCalculate_Click()
Dim sngAmps As Single
    sngAmps = Val(txtVolts) / Val(txtOhms)
    If sngAmps > 5 AND sngAmps < 10 Then //sngAmps can only be 6 to 9 in value
           //DO STUFF
        Else
            //Do other stuff
    End If
    End If
End Sub