i have tested this code here:
tool = GetSelectedTool()
Dim UsersName As String
UsersName = AskTextQuestion("Please enter your name:")
Message "Please change tool now" & UsersName & "!"
MsgBox "Current tool at start of change is " & GetSelectedTool()
SetCurrentTool( tool )
run fine.
post a copy of your M6Start as an attachment, probably there are characters you do not see
in a normal text Editor.