Dim username As String = "Username: user4eir7yhm"
Dim password As String = "Password: uh6r0cdh"
Dim getUser() As String
getUser = Regex.Split(" ", username.Trim) 'Trim to eliminate blank spaces at the beginning and at the end of the string to parse
Dim getpw() As String
getpw = Regex.Split(" ", password.Trim) 'Trim to eliminate blank spaces at the beginning and at the end of the string to parse
Log(getUser(1))
Log(getpw(1))