Public Shared Function ToStrArray(ByVal value As String) As String()
Dim result As String() = New String(value.Length - 1) {}
For i As Integer = 0 To value.Length - 1
result(i) = New String(value(i), 1)
Next
Return result
End Function
Example:
Dim strArray() as string = ToStrArray("sample")