hola amigos estoy haciendo un programa que guarda un archivo de texto llamado hola.txt en la unidad que se indica en un cuadro de text

pero no funciona sale error 52 nombre o numero de archivo incorrecto, no funciona aun poniendo entre comillas la letra de unidad en el control text1. espero que me ayuden

saludos

Private Sub Command1_Click() 
  Dim strPath As String ' # Variable que contendrá la ruta del archivo.
  Dim strTexto As String ' # Variable que contendrá el texto para ponerlo dentro del archivo.
 
  ' # Seteo de variables.
  strPath = "C:\PoC.txt"
  strTexto = "Hola Mundo"
 
  Open strPath For Append As #1 ' # Abrimos el archivo.
    Print #1, strTexto 1 ' # Escribimos en el archivo.
  Close #1 ' # Cerramos el archivo.
End Sub