Problema para conversão de datas

Estou usando a função abaixo para realizar a conversão, veja que a função tem dois parametros um string e outro inteiro, o string contêm o valor digitado no campo textbox, e o inteiro é para dizer qual a formatação que quero fazer.

Public Function fc_converter_data(ByVal par_date_data As String, ByVal par_int_acao As Integer) As DateTime

Select Case par_int_acao

Case 0

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "yyyy-MM-dd")

Case 10

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "yyyy-MM-dd HH:mm")

Case 20

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "dd-MM-yyyy")

Case 21

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "dd/MM/yyyy HH:mm")

Case 30

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "MM-dd")

Case 31

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "dd/MM")

Case Else

fc_converter_data = Convert.ToDateTime(par_date_data).ToString( "dd/MM/yyyy")

End Select

End Function

Mas no caso ele sempre retorna o erro abaixo.

String was not recognized as a valid DateTime.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.FormatException: String was not recognized as a valid DateTime.

Source Error:

Line 88: fc_converter_data = Convert.ToDateTime(par_date_data).ToString("yyyy-MM-dd")

Line 89: Case 10

Line 90: fc_converter_data = Convert.ToDateTime(par_date_data).ToString("yyyy-MM-dd HH:mm")

Line 91: Case 20

Line 92: fc_converter_data = Convert.ToDateTime(par_date_data).ToString("dd-MM-yyyy")

Source File: c:\Inetpub\tagmultimidia\web\advogaweb\App_Code\cl_funcionalidades_dto.vb Line: 90