Manage Case Statement with (Int, long, short, double.....)

Question

I have the following case statements that has to be modified to fit these cases: Dec, Double, Int, Long, Short, Date, and String.

Please let me know if there is an easier way to handle this rather than repeating the following (slightly modified for each case):

Case GetType(Integer)
    If String.IsNullOrEmpty(c.Text) Then
        list.Add(CInt(0))
    Else
        Try
            list.Add(CInt(c.Text))
        Catch ex As Exception
            WriteAudit(ex, True)
            Dim intValue As Integer
            If Not Integer.TryParse(c.Text, intValue) Then
                c.Text = c.Text.Substring(0, c.Text.Length - 1)
                MessageBox.Show("Please Enter Only Integer Values Here")
            End If
        End Try
    End If

Answer 1

For value types (i.e. all your types except String) you can use the Convert.ChangeType method:

list.Add(Convert.ChangeType(c.Text, theType))