Split listbox value in two textboxs

[Marco-Kun]

Hello everyone,

I have a userform, with a listbox, with multiple items looking like this:
1001 SB: Test1
1002 SB: Test2
1003 SB: Test3
etc.

Whenver I select one of these, I would like to have the value split to 2 different textboxes on the word document.
Like this:
Textbox 1: 1001
Textbox 2: SB: Test1

I know how I can get the data to one textbox, but I can't figure out how to split it.

Please Login or Register  to view this content.

Could this be achieved?

Kind regards,

Marco

[jraj1106]

Hi

Try this :

Book1.xlsm

Regards..

[macropod]

Try:

Dim Str as String
Str = Me.ListBox1.Text
ActiveDocument.FormFields("TextBox1").Result = Split(Str, " ")(0)
ActiveDocument.FormFields("TextBox2").Result = Mid(Str, InStr(Str, " ") + 1, Len(Str))