Private count As Integer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        If Clipboard.ContainsText Then
            Dim data As String = Clipboard.GetText()
            count += 1
            Dim file As String = "Data" & count.ToString() & ".txt"
            Dim fpath As String = IO.Path.Combine(Environment.GetFolderPath( _
              Environment.SpecialFolder.DesktopDirectory), file)
            IO.File.WriteAllText(fpath, data)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist