vb.net根据textbox来命名创建的文件。

以下的代码应该怎么改，因为要应用在局域网里的所有电脑，创建的文件要上传到ftp所以命名不能用一个名字。

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As String
        Dim t
        Dim n
        n = TextBox1.Text
        f = "d:\test.txt" 
        t = Label1.Text & n
        If Dir(f) = "" Then
            Try
                My.Computer.FileSystem.WriteAllText(f, t, True)
            Catch ex As Exception
                MsgBox("创建文件出错！")
            End Try
        End If
        Form2.Show()
        Me.Hide()
    End Sub

My.Computer.FileSystem.WriteAllText("d:\" & TextBox2.Text & ".txt", t, True)