Gravar txt em nova linha

Olha só gente o negocio é o seguinte:eu tenho um campo de texto que armazena uma senha, e um botao que serve para salvar esta senha em um txt. O problema é que tenho que gravar uma senha em cada linha do txt cada vez que o botao é clicado, o codigo esta assim: Private Sub btnAtendida_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAtendida.Click Dim Arquivo As New System.IO.FileInfo("Dados\Arquivo_senha_a2.txt") If Arquivo.Exists Then Arquivo.Delete() End If If txtSenha.Text <> "" Then Dim DB1a2 As New System.IO.FileStream("Dados\Arquivo_senha_a2.txt", IO.FileMode.OpenOrCreate) Dim Arquivo_senha As New System.IO.StreamWriter(DB1a2) Dim Atual, Chamar As Double Atual = txtSenha.Text Chamar = Atual + 1 txtSenha.Text = Chamar Arquivo_senha.Write(Chamar) Arquivo_senha.Close() MessageBox.Show("Atualize sempre o programa antes de chamar a sua próxima senha!!") Else MessageBox.Show("Atualize ou click no campo de senha escreva o numero da senha que você esta atendendo no momento e click em atendida para reiniciar a sequência!!") End If End Sub***Aguardo em help ai, to tantando fazer mas tá dificil pra burro!!!!!!