Convert.ChangeType
Imports System Public Class ChangeTypeTest Public Shared Sub Main() Dim d As [Double] = - 2.345 Dim i As Integer = CInt(Convert.ChangeType(d, GetType(Integer))) Console.WriteLine(i) Dim s As String = "12/12/98" Dim dt As DateTime = CType(Convert.ChangeType(s, GetType(DateTime)), DateTime) Console.WriteLine(dt) End Sub 'Main End Class 'ChangeTypeTest