Hvordan får jeg vist resultatet af to textboxe

Dim TextBoks1, TextBoks2 As Integer

TekstBoks1 = Text1.Text
TekstBoks2 = Text2.Text
Text3.Text = TekstBoks1 + TekstBoks2

Hvis en knap udløser det:

  Sub command1_Click()
    text3.text = Val(text1.text) + Val(text2.text)
  End sub

  Hvis f.eks. 'Enter' i text2 skal udløse summen:

  Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 then text3.text = Val(text1.text) + Val(text2.text)
  End sub

du kan også indsætte det i en timer funktion hvis du vil have det til at tjekke hele tiden om du.

Private Sub Timer1_Timer()
  If Not (Text1.Text = "") And Not (Text2.Text = "") Then
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
  End If
End Sub

Det kan så selvfølgelig også sættes ind som "Text2_KeyPress(KeyAscii As Integer)" også som joern skrev.. så hvis du vælger at udelukke "If KeyAscii = 13 Then", så får du en der hele tiden lægger sammen.. ^^