Change entered number to negative

You only need one Optionbutton really. If your Optionbutton1 controls negative amounts the something like this (change the code to write to your sheet).

Private Sub CommandButton1_Click()
    If Me.OptionButton1 Then
        MsgBox Val(Me.TextBox1.Value) * -1
    Else: MsgBox Val(Me.TextBox1.Value)
    End If
End Sub

Note iy you declare Tot as long then you will not be able to use decimals.