Convertir codigo asp a codigo visual basic?

[tavitooo]

amigos hay forma de pasar codigo que tengo de unas 17 lineas de codigo asp a codigo de visual basic 6?.

tengo esto por ejemplo:

codigo = Int(Asc(Mid(aaaa, 1, 1))) - 50
llavesota = Asc(Mid(aaaa, pos + 3, 1))

For i = 1 To Len(aaaa)
If Asc(Mid(aaaa, i, 2)) <> llavesota Then
..
.....