Scusa ... al di la' del fatto che non sai come fare, ma qual e' lo scopo del codice?

In ogni caso, il codice e', a dir poco, inefficiente ...

Queste righe ad esempio

Dim c As String
c = 1 + i

non hanno senso e quest

Text1.Text = (Text1.Text + MyStrl + c + " ," + MyStrr + vbCrLf)

dovrebbe stare fuori dal ciclo, alla fine. Il testo dovrebbe essere accumulato in una stringa.