Private Sub cmdCalculate_Click()
Dim sngAmps As Single
    sngAmps = Val(txtVolts) / Val(txtOhms)
    If sngAmps <= 5
           *DO STUFF
        ElseIf sngAmps > 5 AND sngAmps <= 9
            *DO OTHER STUFF
    Else
        *Do default stuff
    End If
    End If
End Sub