Option Explicit

Private Sub Form_Load()
  List1.Clear
  With List1
    .AddItem "Alfred"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Roger"
  End With

  Text1.Text = "Alfons"
End Sub

Private Sub cmdEintragErsetzen_Click()
  Dim strText As String
  Dim strTextAlt As String
  Dim i As Integer

  strText = Trim(Text1.Text)

  If strText = "" Then
    Label1.Caption = "Bitte Text in Textbox eingeben!"
    Text1.SetFocus
    Exit Sub
  End If

  With List1
    If .ListIndex > -1 Then
      strTextAlt = .List(.ListIndex)
      .List(.ListIndex) = strText
      Label1.Caption = _
          "Der ListBox-Eintrag '" & strTextAlt & _
          "' wurde mit '" & strText & "' ersetzt!"
    Else
      Label1.Caption = _
            "In der ListBox wurde kein Eintrag markiert !"
    End If
  End With

  Text1.SetFocus
End Sub