Abs function doesn't work with textbox when show message

 Ok 

I got solution after amny tries . the matter is simple but seem to I 'm too lazy to think way.

I would share my thoughts.

will take two cases as in example: 

if the name contains minus value  in textbox1

example : show first in TB1=-4,000.00 , TB2=,1,000.00 from first sight will TB1<TB2

but what I want subtract TB1-TB2 ignoring minus in TB1 so when show message will deal TB1 as plus in this case will be =4,000.00-1,000.00

 so TB1> TB2 then don't show message as long  TB2 <TB1

and TB1=-4000,TB2=4,000 then message will deal TB1as plus in this case will be =4,000.00-4,000.00=0 so TB1=TB2 then don't show message as long  TB2=TB1

if the name contains plus in TB1 then no need change when show message as long there is no minus in TB1.

from first select name and TB1=4,000.00 ,TB2=2,000.00 then will not show message as long TB1>TB2, if TB1=4,000.00 and TB2=4000 then will not show message as long TB1=TB2

TB1=4,000.00 ,TB2=2,000.00 hen will not show message as long TB1>TB2 

for short word the message box show Exceeded the amount TB1 after write in TB2 ignoring minus value in TB1 after subtraction TB1-TB2

finally here is the code

Private Sub TextBox2_AfterUpdate()
Dim tot As Double
tot = CDbl(Abs(TextBox1.Value)) - CDbl(TextBox2.Value)
If tot < 0 Then MsgBox " bigger than available , so you have plus amount about" & " " & Format(Abs(tot), "#,##0.00")
End Sub

Sorry for the long post!

I hope this subject help members

Abdo.

I'm still not clear what your question means (or your "clarification" in the Discussion to that) so I've made a guess...

In the attached, revised file, your code is modified as follows (comments and changes in bold):

Private Sub TextBox2_AfterUpdate()
    Dim tot As Double
    ' do nothing unless the TBs have values
    If TextBox2.Value = "" Or TextBox1.Value = "" Then Exit Sub
   
    tot = CDbl(TextBox2.Value) - CDbl(TextBox1.Value)
    
    'If TextBox2.Value > TextBox1.Value Then MsgBox " bigger than available , so you have plus amount about" & " " & Format(tot, "#,##0.00")
    
    ' Act depending on what TextBox1 is
    Select Case CDbl(TextBox1.Value)
        ' if it's negative
        Case Is < 0
            MsgBox "That payment in makes " & ComboBox1.Value & "'s balance " & Format(CDbl(TextBox1.Text) + CDbl(TextBox2.Text), "#,##0.00")
        ' if it's negative
        Case Is > 0
            If tot > 0 Then
                MsgBox ComboBox1.Value & "'s balance wasn't enough to pay out " _
                & CDbl(TextBox1.Value) & "- would give a balance of " & tot
            End If
        Case 0
            MsgBox ComboBox1.Value & "'s balance was 0"
    End Select
End Sub

You can now launch the form by the green button on the worksheet. The Message Box now changes depending on what the Name's balance is.

Note that I added a test (after the Dim statement) to avoid problems and did something similar in Private Sub CommandButton1_Click().

Hope this helps (and you select my Answer). If not please try to explain carfelyy why not.