Private Sub Command1_Click()
  'gera arquivo txt
  Open "C:Teste.txt" For Output As #1
  Print #1, "Minha senha"
  Close #1
End Sub

Private Sub Command2_Click()
  'ler arquivo txt
  Dim strABC As String
  Open "C:Teste.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, strABC
    MsgBox strABC
  Loop
  Close #1
End Sub