Private Sub Command2_Click()
    Dim data As String
    Dim x As Variant

    data = "01-10-0000014"
    x = Split(data, "-")
    For i = 0 To UBound(x)
        Debug.Print "x" & i & " --> " & x(i)
    Next i
End Sub