Public Sub WriteClip(ByVal text As String)
    Clipboard.SetText text
End Sub

Public Sub ReadClip(ByVal text As String)
    Clipboard.GetText
End Sub

