Imports System
Imports System.Windows.Forms
Imports Microsoft.VisualBasic

Public Class ClipboardFusionHelper

    Public Shared Function ProcessText(text As String) As String
        If IsDate(text) Then
          Dim x As DateTime = CDate(text)
            BFS.Clipboard.PasteText(x.ToString("hh:mm:ss tt"))
        Else
          MessageBox.Show("Clipboard text is invalid.  It must be a date", "Paste Time Only", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

        Return text
    End Function

End Class