Logical statement with 2 textboxes - vba

Question

I've got a problem with my code when I am doing a logical statement with 2 textboxes.
I just want to check before I close my userform if Textbox4's value is smaller then the absolute of textbox6's value.
If Me.TextBox4.Value <= Abs(Me.TextBox6.Value) Then
MyInput = MsgBox("Warning. The absolute max or min signal is bigger then Full Scale. Do you want to continue anyway?", vbYesNo)
(When testing the code the msgbox does not activate when textbox4.value is smaller right now.)
Am I missing something? Is this not the correct way to write it?
Thanks for any help.
Here is the full Code:
Private Sub selectcmd1_Click()
Dim MyInput
Dim ws As Worksheet
Set ws = Worksheets("InputS&T")
If Me.TextBox4.Value <= Abs(Me.TextBox6.Value) Then
MyInput = MsgBox("Warning. The absolute max or min signal is bigger then Full Scale. Do you want to continue anyway?", vbYesNo)
If MyInput = vbYes Then
'find first empty row in database---------------------------------
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, searchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
ws.Cells(iRow, 4).Value = Me.TextBox1.Value
ws.Cells(iRow, 5).Value = Me.TextBox2.Value
ws.Cells(iRow, 6).Value = Me.TextBox3.Value
ws.Cells(iRow, 7).Value = Me.TextBox4.Value
ws.Cells(iRow, 8).Value = Me.TextBox5.Value
ws.Cells(iRow, 9).Value = Me.TextBox6.Value
ws.Cells(iRow, 10).Value = Me.TextBox7.Value
ws.Cells(iRow, 11).Value = Me.TextBox8.Value
Unload Me
BeginRow = 13
EndRow = 40
ChkCol = 3
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
'-------------------------------------------------------------
Else
End If
Else
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, searchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
ws.Cells(iRow, 4).Value = Me.TextBox1.Value
ws.Cells(iRow, 5).Value = Me.TextBox2.Value
ws.Cells(iRow, 6).Value = Me.TextBox3.Value
ws.Cells(iRow, 7).Value = Me.TextBox4.Value
ws.Cells(iRow, 8).Value = Me.TextBox5.Value
ws.Cells(iRow, 9).Value = Me.TextBox6.Value
ws.Cells(iRow, 10).Value = Me.TextBox7.Value
ws.Cells(iRow, 11).Value = Me.TextBox8.Value
Unload Me
BeginRow = 13
EndRow = 40
ChkCol = 3
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = "" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt
End If
End Sub

Answer 1

You should convert the values to Double and then do the check:
Dim dblVar1 As Double
Dim dblVar2 As Double
dblVar1 = CDbl(Me.TextBox4.Value)
dblVar2 = CDbl(Me.TextBox6.Value)
If dblVar1 <= Abs(dblVar2) Then
MyInput = MsgBox("Warning. The absolute max or min signal is bigger then Full Scale. Do you want to continue anyway?", vbYesNo)
End If
Reason is that whilst you can do something like this in VBA:
If "10" < "6" Then
'...
End If
It won't give the expected result because "10" < "6" is True because it is a text comparison.

Answer 2

Use
If CLng(Me.TextBox1.Value) <= CLng(Abs(Me.TextBox2.Value)) Then
instead of
If Me.TextBox4.Value <= Abs(Me.TextBox6.Value) Then

Answer 3

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim myinput As Variant
If Me.TextBox4.Value <= Abs(Me.TextBox6.Value) Then
myinput = MsgBox("Warning. The absolute max or min signal is bigger then Full Scale. Do you want to continue anyway?", vbYesNo)
End If
If myinput <> vbYes Then Cancel = True
End Sub