VBA User Form question regarding multiple inputs

Private Sub Separate_Values()
Dim MyValue As String
Dim NewValue() As String
Dim Num_Values As Long
Dim i As Long
    MyValue = TextBox1.Value
    Do Until IsNumeric(Application.Search(",", MyValue)) = False
        If IsNumeric(Application.Search(",", MyValue)) Then
            Num_Values = Num_Values + 1
            MyValue = Right(MyValue, Len(MyValue) - Application.Search(",", MyValue))
        End If
    Loop
    MyValue = TextBox1.Value
    ReDim NewValue(Num_Values)
    For i = 0 To UBound(NewValue)
        If IsNumeric(Application.Search(",", MyValue)) Then
            NewValue(i) = Left(MyValue, Application.Search(",", MyValue) - 1)
            MyValue = Right(MyValue, Len(MyValue) - Application.Search(",", MyValue))
        Else
            NewValue(i) = MyValue
        End If
        MsgBox NewValue(i)
    Next i
End Sub

Private Sub CommandButton1_Click()

Dim aryCSV As Variant

Application.ScreenUpdating = False

aryCSV = SplitText(Text:=CStr(TextBox1.Text), Separator:=",", StartPosition:=1)

Columns(1).Clear

On Error Resume Next
For i = 0 To UBound(aryCSV)
    Cells(i + 1, 1) = CDbl(aryCSV(i))
Next
On Error GoTo 0

Erase aryCSV

Application.ScreenUpdating = True

Unload Me

End Sub

'====================================================================================

Private Function SplitText(ByRef Text As String, ByRef Separator As String, ByRef StartPosition As Integer) As Variant

Dim intChr As Integer
Dim intLen As Integer
Dim intSep As Integer

Dim arySlt()
ReDim arySlt(0)

intChr = StartPosition
intLen = Len(Text)

Do

    If arySlt(0) = "" Then Else ReDim Preserve arySlt(UBound(arySlt) + 1)

    intSep = InStr(intChr, Text, Separator)

    If intSep <> 0 Then

        arySlt(UBound(arySlt)) = Mid(Text, intChr, intSep - intChr)
        Text = Mid(Text, intSep + 1, intLen - intSep)

    Else

        arySlt(UBound(arySlt)) = Text
        Exit Do

    End If

Loop

SplitText = arySlt
Erase arySlt

End Function