Concatenar cerosa la izquierda en datagridview

[velma]

Hola, tengo 3 columnas deseo concatenar ceros en los valores que contengan las columnas que solo tengan un caracter, para despues concatenar el contenido de todas las columnas en otra, tengo lo siguiente pero no lo concatena al mostrarlo en la columna 5

Código:

Código vb:
Private Sub BtnOrdena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOrdena.Click
        Dim col2 As String
        Dim col3 As String
        Dim col4 As String
        For i As Integer = 0 To GridInd.Rows.Count - 1
 
            If GridInd.Rows(i).IsNewRow = True Then Exit For
            '   GridInd.Item(5, i).Value=
            If Len((GridInd.Item(2, i).Value)) = 1 Then
                col2 = ("0" & (GridInd.Item(2, i).Value))
            Else
                col2 = (GridInd.Item(2, i).Value)
            End If
 
 
            If Len((GridInd.Item(3, i).Value)) = 1 Then
                col3 = ("0" & (GridInd.Item(3, i).Value))
            Else
                col3 = (GridInd.Item(3, i).Value)
            End If
 
            If Len((GridInd.Item(4, i).Value)) = 1 Then
                col4 = ("0" & (GridInd.Item(4, i).Value))
            Else
                col4 = (GridInd.Item(4, i).Value)
            End If
 
            GridInd.Item(5, i).Value = col2 & col3 & col4
        Next
        GridInd.Sort(GridInd.Columns(5), ListSortDirection.Ascending)
   
    End Sub
 

alguna idea de que estoy haciendo mal?