How to Split a string and put each word in text box

Good day everyone!

As the title said


just refer on this pic

Untitled.png

when I push the button it will split the string

i have found the code here but the problem is I don't know how will I put the text on each textbox

        Dim optrName As String
        Dim splitName() As String
        optrName = rsProfile.Fields("optr_name").Value
        splitName() = Split(optrName, ", ")
        For i = LBound(splitName) To UBound(splitName)
            optrName = optrName & vbNewLine & "Part No. " & i & " - " & splitName(i)
        Next i
        MsgBox optrName

is there other way around to split the string?