Formulario Vendedor

Private Sub CmdAgregar_Click()
If Me.TxtVendedor.Text <> "" Then
If IsNumeric(Me.TxtVendedor.Text) = False Then
Me.LstVendedor.AddItem Me.TxtVendedor.Text, Me.LstVendedor.ListCount
Else
MsgBox "Escribir solo texto"
End If
End If

Me.TxtVendedor.Text = ""
Me.TxtVendedor.SetFocus

End Sub

Private Sub CmdEliminar_Click()
On Error GoTo RevisarError

Me.LstVendedor.RemoveItem Me.LstVendedor.ListIndex

RevisarError:
If Err.Number = 5 Then
MsgBox "Seleccione algo para eliminar"
Exit Sub
End If

End Sub

Private Sub TxtVendedor_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.TxtVendedor.Text <> "" Then
If IsNumeric(Me.TxtVendedor.Text) = False Then
Me.LstVendedor.AddItem Me.TxtVendedor.Text, Me.LstVendedor.ListCount
Else
MsgBox "Escribir solo texto"
End If
End If

Me.TxtVendedor.Text = ""
Me.TxtVendedor.SetFocus

End If
End Sub