What did you mean when you said...

...that code works the same in XL2007 as it does in XL2003 (both running on
Vista) for me. A numerical value entered into a TextBox is not a number, it
is text. The only reason entries like 1, 2.3, etc. end up as numbers when
used in calculations is because VBA has native data types that hold such
values (Long, Double, etc.) and, when used in calculations, numbers that can
be converted to an appropriate native data type are done so, in the
background, automatically, in order to perform the required calculation. VBA
has no native data type for fractions, so no conversion takes place. You can
parse the fraction and convert it to a floating point value in code though.
Here is a function that I have posted in the past (in the compiled VB
newsgroups) which will convert fractions, as well as mixed numbers (whole
numbers followed by a space followed by a fraction), into a floating point
values...

Function FracToDec(ByVal Fraction As String) As Double
 Dim Blank As Integer
 Dim Slash As Integer
 Dim CharPosition As Integer
 Dim WholeNumber As Integer
 Dim Numerator As Integer
 Dim Denominator As Integer
 'Remove leading and trailing blanks
 Fraction = Trim$(Fraction)
 'Collapse all multiple blanks to a single blank
 CharPosition = InStr(Fraction, "  ")
 Do While CharPosition
   Fraction = Left$(Fraction, CharPosition) & _
              Mid$(Fraction, CharPosition + 2)
   CharPosition = InStr(Fraction, "  ")
 Loop
 'Remove any space character after the slash
 CharPosition = InStr(Fraction, "/ ")
 If CharPosition Then
   Fraction = Left$(Fraction, CharPosition) & _
              Mid$(Fraction, CharPosition + 2)
 End If
 'Remove any space character in front of the slash
 CharPosition = InStr(Fraction, " /")
 If CharPosition Then
   Fraction = Left$(Fraction, CharPosition - 1) & _
              Mid$(Fraction, CharPosition + 1)
 End If
 'Locate the blank and/or slash
 Blank = InStr(Fraction, " ")
 Slash = InStr(Fraction, "/")
 'The Fraction argument can't have characters other than
 'blanks, slashes, digits and it can only have one blank
 'and/or one slash.
 If Fraction Like "*[! /0-9]*" Or _
       InStr(Blank + 1, Fraction, " ") Or _
       InStr(Slash + 1, Fraction, "/") Or _
       (Blank > 0 And Slash = 0) Then
   MsgBox "Error -- Improperly formed expression"
 'The Fraction argument is now in one of these formats
 'where # stands for one or more digits: #, # #/# or #/#
 Else
   'There is no slash (Format: #)
   If Slash = 0 Then
     FracToDec = Val(Fraction)
   'There is a slash, but no blank (Format: #/#)
   ElseIf Blank = 0 Then
     FracToDec = Val(Left$(Fraction, Slash - 1)) / _
                 Val(Mid$(Fraction, Slash + 1))
   'There are both a slash and a blank (Format: # #/#)
   Else
     FracToDec = Val(Left$(Fraction, Blank - 1)) + _
                 Val(Mid$(Fraction, Blank + 1, _
                          Slash - Blank - 1)) / _
                 Val(Mid$(Fraction, Slash + 1))
   End If
 End If
End Function

Rick

Hi,

Textboxes (unsurprisingly) return text so you need val

mynumber = Val(UserForm1.TextBox2.Value)

Mike

Make a Textbox (I used the Drawing Toolbar).  Enter 3/4

Run the following:

Sub Macro1()
   Dim s As String
   ActiveSheet.Shapes("Text Box 1").Select
   s = Selection.Characters.Text
   MsgBox (Evaluate(s))
End Sub

Outputs .75