Snasui Excel Forum

Code: Select all

Private Sub ListBox1_Click()



Me.[txtIDStart11] = Me.ListBox1.Column(0)


End Sub

Code: Select all

Private Sub txtIDStart11_Change()
Dim i As Long
Dim Lines() As String
Dim Values() As String
Lines() = Split(ListBox1.Column(0), vbCrLf)
For i = 0 To UBound(Lines)
    If Lines(i) > vbNullString Then
        Values() = Split(Lines(i), ".")
        Me.[txtIDStart11] = Values(0)
    End If
Next i
End Sub