I have a type mismatch and i can't understand why?

I have two textboxes on a form which i deduct from a given amount. Thi
works OK when both boxes have a value in them but just one box entere
& all go's the way of the Pear!?

I had t & t2 decalred as long but tried to get the thing working an
changed them to variants, this just shifted the blame further down
line or 2. My problem i think is due to textbox values being a string
how do i say the input will be a long? or even the cell for tha
matter?



Private Sub CommandButton1_Click()
N = FrmDor1.N
Dim t As Variant: Dim t2 As Variant
Dim note As String
Dim nt As String: Dim nt1 As String


If TextBox1.Value < "" Then
Sheets("Sheet1").Cells(N, 31) = TextBox1.Value
End If
If TextBox2.Value < "" Then
Sheets("Sheet1").Cells(N, 30) = TextBox2.Value
End If
If TextBox3.Value < "" Then
Sheets("Sheet1").Cells(N, 38) = TextBox3.Value
End If

If TextBox4.Value < "" Or TextBox5.Value < "" Then
t = TextBox4.Value 'pack left
t2 = TextBox5.Value 'pack right
If TextBox4.Value = "" Then
nt = ""
Else
nt = t & " left pack,"
End If

If TextBox5.Value = "" Then
nt1 = ""
Else
nt1 = t2 & " right pack,"
End If

note = Sheets("Sheet1").Cells(N, 23)
Sheets("Sheet1").Cells(N, 23) = note & " " & " " &nt& " "&nt1
FrmDor1.TextBox4.Value = note & " " & " " & nt & " " &nt1
'THIS is my problem line
Sheets("Sheet1").Cells(N, 31) = Sheets("Sheet1").Cells_
(N, 11) - t - t2
End If

End Sub

Thanks for even looking at this. Any help will be appreciated.
CA

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements