September 2017 Update

Task/Tokenize-a-string/BASIC/tokenize-a-string-10.basic

@@ -1,14 +1,5 @@
-Sub Main()
-    Dim parseMe As String, parsed As Variant
-    parseMe = "Hello,How,Are,You,Today"
-
-    parsed = Split(parseMe, ",")
-
-    Dim L0 As Long, outP As String
-    outP = parsed(0)
-    For L0 = 1 To UBound(parsed)
-        outP = outP & "." & parsed(L0)
-    Next
-
-    MsgBox outP
-End Sub
+text$ = "Hello,How,Are,You,Today"
+FOR i = 1 to 5
+ textArray$(i) = word$(text$,i,",")
+ print textArray$(i);" ";
+NEXT