Function ToField(str) As String
    Dim res As String
    Dim subs As String
    For i = 0 To Len(str) - 1
        subs = str.Substring(i, 1)
        If subs = UCase(subs) Then res = res + "_"
        res = res + subs
    Next i
    ToField = res
End Function