Imports System

Public Class Test
	Public Shared Sub Main()
        Dim texto As String = "def NomeDaVariavel = ValorDela;"

        Dim indiceVar As Integer = texto.IndexOf("def")
        Dim indiceVal As Integer = texto.IndexOf("=")

        Dim tamanhoVar As Integer = Len(indiceVar)

        Dim varNome As String = texto.Substring(indiceVar + tamanhoVar, texto.IndexOf("=") - tamanhoVar - 1)
        Dim varVal As String = texto.Substring(indiceVal + 2, texto.IndexOf(";") - indiceVal - 2)

        Console.WriteLine(String.Format("{0} = {1}", varNome, varVal))
        Console.ReadKey()
        
        Dim palavras As String() = texto.Split(New Char() {" "})
        Dim palavra As String
        For Each palavra In palavras
            Console.WriteLine(palavra)
        Next
        Console.ReadKey()
	End Sub
End Class