Crear archivo con VB

[VicFrc]

Buenas, miren mi problema es el siguiente: he encontrado en este foro como crear un archivo .txt desde el VB... pero mi problema es el siguiente, encontré esto:

Set v1 = CreateObject("Scripting.FileSystemObject")
Set v2 = v1.CreateTextFile("C:\text.txt")

Pero solo me funciona el código si lo pongo en un command button, si lo quiero poner por ejemplo...

Public Sub Creartxt()
Set v1 = CreateObject("Scripting.FileSystemObject")
Set v2 = v1.CreateTextFile("C:\Win32c.dat")
End sub

Si lo pongo así no me funciona, me tira en "v1" variable no definida, y necesito hacerlo en un Sub...

Espero respuestas, Gracias ^^