intString = "[1,2,3,4,5]"
intList = []
for entry in intString[1:-1].split(","):
  intList.append(int(entry))

Sub a()
Dim di As New IO.DirectoryInfo("c:\math\m\")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo
        Dim filename As String
        Dim ml As IKernelLink = MathLinkFactory.CreateKernelLink()
        ml.WaitAndDiscardAnswer()

        For Each dra In diar1
            filename = dra.FullName
            mathtestbox.Text = filename

            ml.EvaluateToOutputForm("<<" & filename, 0)



        Next
End Sub