Public Function setPadding(ByVal code As String, ByVal IntBagi As Integer, ByVal str As String, ByVal strPadding As String) As String
        Dim strRet As String = String.Empty
        Dim jmcode As Integer = code.Length
        Dim intjmloop As Integer = jmcode / IntBagi
        For i As Integer = 2 To intjmloop
            strRet &= strPadding
        Next
        If jmcode = IntBagi Then
            strRet = ""
        End If
        strRet &= str
        Return strRet
    End Function