Private Sub Form_Unload(Cancel As Integer)
  Auswerten
End Sub
 
Private Sub Option1_LostFocus(Index As Integer)
  Auswerten
End Sub
 
Private Sub Combo1_LostFocus()
  Auswerten
End Sub
 
Private Sub Txt_LostFocus(Index As Integer)
  Auswerten
End Sub
 
Private Sub Auswerten()
  Dim I As Integer
  Dim sStr As String
  Dim iIndex As Integer
 
  'Textbox auswerten
  For I = 0 To txt.Count - 1
    If txt(I).Text <> "" Then
      sStr = sStr & txt(I).Tag & txt(I).Text
    End If
  Next I
 
  'OptionButton
  For I = 0 To Option1.Count - 1
    If Option1(I).Value = True Then
      sStr = sStr & Option1(I).Tag & Option1(I).Caption
      Exit For
    End If
  Next I
 
  'ComboBox
  If Combo1.Text <> "" Then
    sStr = sStr & Combo1.Tag & Combo1.Text
  End If
 
  If sStr <> "" Then
    txtSatz = "G100" & sStr
  End If
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.