Dim sTemp As String
Dim vTemp As String
Dim oItem As ListItem
 
On Error GoTo Error:
 
 sTemp = sTemp & Combo1 & " " & sevText1(0).Text & "-" & sevText1(1).Text & "-" _
   & sevText1(2).Text & " " & sevText1(3).Text
 vTemp = vTemp & Combo2 & " " & sevText3(0).Text & "-" & sevText3(1).Text & "-" _
 & sevText3(2).Text & " " & sevText3(3).Text
 Set oItem = Form2.ListView1.ListItems.Add(, sTemp, sTemp)
 Set oItem = Form2.ListView1.ListItems.Add(, vTemp, vTemp)
 
 oItem.SubItems(1) = Form3.sevText2(1).Text
 oItem.SubItems(2) = Form3.sevText2(0).Text
 oItem.SubItems(3) = Form3.sevText2(2).Text
 oItem.SubItems(4) = vTemp
 
Error:
       MsgBox "Eintrag schon vorhanden"