Visual Basic - Reemplazar el enter?

Bueno necesito un codigo que reemplaze la funcion del enter. Quisiera una funcion asi como en Fox SET TALK ON pero su similar en Visual. Gracias por su ayuda.....

sub enter()
sendkeys "{enter}"
end sub

o

sub enter()
text1.setfocus
r = chr(13) & chr(10)
text1.seltext = " " & r
end sub

intentalo asi

sub enter()
sendkeys "{enter}"
end sub

o

sub enter()
text1.setfocus
r = chr(13) & chr(10)
text1.seltext = " " & r
end sub