As

''' <summary>
''' A wrapper for DirectCast function.
''' </summary>
Public Function [As](Of TResult)(ByVal value As Object) As TResult
    Return DirectCast(value, TResult)
End Function

Dim x As Object = "String"
Dim s = x.As(Of String)