função sobre função

fala ae..

tenho um efeito tipo digitando sobre um textbox. Funcionando normal, eu enviando texto usando um button. Porém alterei isso para passar por uma função, com isso, as msg do sistema posso enviar para a pessoa, e fica no estilo do cmd

Dim i As Integer
Dim mnge As String

Private Sub msgtype(ByVal msg As String)
i = 0
mnge = msg
Timer2.Enabled = True
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
i += 1
TextBox2.Text += mnge.Substring(i - 1, 1)
If i = mnge.Length Then
Timer2.Enabled = False
TextBox2.Text += vbCrLf
End If
End Sub

o grande problema e que se eu tenho 2 msg seguida, ele esquece a primeira e vai logo para a segunda..

com posso arrumar isso?

msgtype("Verificando conexão")
msgtype("Conexão OK!")