Private Sub Command1_Click()
Shell "c:\takata.bat"
End Sub

esto esta bien ahora lo k dices es k no se te abre el fichero no desde vb? pk fijate eso es por q bat, debe tener un directorio de trabajo,osea una ruta desde donde llamaras a los archivos por eso cuando tu lo ejecutas con el doble click se lo ves por q la ruta  es el directorio donde se encuentra el archivo. Pero cuando lo llamas desde VB, la ruta ya seria el directorio donde tenes la aplicación de vb, Entonces, para que te funcione la llamada a Shell(), debes tener el bat junto a el un exe con el mismo directorio (corrije la ruta del bat), si no se te es posible si  que el bat estue en el mismo directorio que el exe, usa la funcion api "ShellExecute():"

o tal vez hay un error en el codigo del .bat y por eso no lo crea

No se dan cuenta lo k dice el lo ejecuta directamente y funciona, solamente no le funciona desde vb.

Creo que lo que dice carolmuriel  en su primer post seria mas razonable

Ya esta solucionado, si se ejecuta un bat desde VB mediante funcion Shell el .exe ha de estar en la misma carpeta que el bat como bien decia carolmuriel.

Gracias por la ayuda

Prueba así:

Private Sub Command1_Click()
       Shell "cmd /c C:\prueba.bat", vbHide
End Sub
 

Saludos!