Знак минус отдельно от числа

[segail]

Здравствуйте, как загрузить числовые данные в два TextBox?
Число может быть положительное или отрицательное.
Если число отрицательное, то знак минус в TextBox1 а число в TextBox2

[Maxx]

Вот Ваш код:

Private Sub CommandButton1_Click()
    If [a1] < 0 Then UserForm1.TextBox1 = "-"
    If [a1] < 0 Then UserForm1.TextBox2 = Abs([a1].Value) Else UserForm1.TextBox2 = [a1].Value
End Sub

а лучше вообще вот так:

Private Sub CommandButton1_Click()
    If IsNumeric([a1]) Then
        UserForm1.TextBox2 = Abs([a1])
        If [a1] < 0 Then UserForm1.TextBox1 = "-"
    Else
        MsgBox "Там не число!!!"
    End If
End Sub