Convertir datos entre diferentes formatos

Public Function ValidarCampo(Campo As Variant, I As Integer) As Variant
    'SI VIENE VACÍO O CON NULO
    If Campo = "" Or IsNull(Campo) Then
        ValidarCampo = ""
    Else
        Select Case I   'PARA DEVOLVER EL TIPO DE CONVERSION
            Case 1 'CONVERSIÓN A INTEGER
                ValidarCampo = CInt(Campo)
            Case 2 'CONVERSIÓN A LONG
                ValidarCampo = CLng(Campo)
            Case 3 'CONVERSIÓN A DOUBLE
                ValidarCampo = CDbl(Campo)
            Case 4 'CONVERSIÓN A SINGLE
                ValidarCampo = CSng(Campo)
            Case 5 'CONVERSIÓN A FECHA
                ValidarCampo = CDate(Campo)
            Case 6 'CONVERSIÓN A CADENA
                ValidarCampo = CStr(Campo)
        End Select
    End If
End Function