Stuck on a simple IsNumeric Test: If Contents of the Clipboard is Numeric Then Proceed Else Exit Sub

[realitycheck]

I have found ways of testing the contents of the clipboard for all kinds of things, but apparently there's no easy way of testing the clipboard for numeric values.

Basically the user will have something in the clipboard, and if it's not a digit, they made a mistake. My code will error out if there is a non numeric value in the clipboard without giving them feedback of any kind.

So I would like to have a message box pop up if the value in the clipboard is non numeric.

Does anyone have the proper syntax for doing this?

Thanks in advance.

 

[realitycheck]

I got it...

This code is working for me...

It requires this public function...

Function IsClipboardEmpty() As Boolean
'function to test if clipboard is empty
    IsClipboardEmpty = (CountClipboardFormats() = 0)
End Function

with this sub...

Private Sub FindAllIDsButton_Click()

'code to find all IDs button

'prep for search
frmPartLoc.Hide
Sheets("DATA").Select

'Test 1 - Look for empty clipboard first...
 If IsClipboardEmpty Then
 MsgBox "Please Copy ID first"
 frmPartLoc.Show
 Exit Sub
 End If
 
 'Test 2 - Check for numerical values only
   Dim DataObj As MsForms.DataObject
   Set DataObj = New MsForms.DataObject '<~~ Amended as per jp's suggestion

   On Error GoTo Whoa

   '~~> Get data from the clipboard.
   DataObj.GetFromClipboard

   '~~> Get clipboard contents
   MyString = DataObj.GetText(1)
   
   'If it's not numeric
   If Not IsNumeric(MyString) Then
   
MsgBox "The clipboard doesn't contain a valid ID. Copy again and retry."
'return to primary form
frmPartLoc.Show
   Exit Sub
   
        Else 'It's numeric so proceed...
        'go ahead and open the find all form
   f_FindAll.Show
   End If
   
Whoa:
'this should never happen but it's here just in case.
   If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"
   'return to primary form
   frmPartLoc.Show
   
End Sub