While you may be entering a decimal, I think what you really want to do is build a timespan from the MM.SS format.
If this is the case, what you could do is to treat that decimal as a (string) Array of integers, and then build a
TimeSpan
from the values.
This sample is rudimentary, but should get you on the right track
Sub Main()
Console.WriteLine("Please enter a decimal number")
Dim entry = Console.ReadLine().Trim()
Dim DecimalCheck As Decimal = -1
If (Decimal.TryParse(entry, DecimalCheck)) Then
Dim TimeValues As String() = entry.Split(".")
Dim TimeElements As Integer = TimeValues.GetUpperBound(0) + 1
Dim OutputMinutes As Integer = 0
Dim OutputSeconds As Integer = 0
If (TimeElements > 0) Then
Integer.TryParse(TimeValues(0), OutputMinutes)
If (TimeElements > 1) Then
Integer.TryParse(TimeValues(1), OutputSeconds)
End If
End If
Dim OutputTime As TimeSpan = New TimeSpan(0, OutputMinutes, OutputSeconds)
Console.WriteLine(String.Format("This calculates to: {0}", OutputTime))
Else
Console.WriteLine("Invalid decimal entered.")
End If
Console.WriteLine("Press ENTER to try again... or type EXIT and then press ENTER to exit")
Dim Command = Console.ReadLine()
If (Command.ToUpper().Contains("X")) Then
Main()
End If
End Sub