Как мне получить строковую переменную и записать её какую-нибудь в ячейку?

Declare Function RegOpenKeyEx Lib 'advapi32.dll' Alias 'RegOpenKeyExA' (ByVal hKey As Long, _
                                                                        ByVal lpSubKey As String, _
                                                                        ByVal ulOptions As Long, _
                                                                        ByVal samDisired As Long, _
                                                                        pnkResult As Long) As Long
 
Declare Function RegSetValue Lib 'advapi32.dll' Alias 'RegSetValueA' (ByVal hKey As Long, _
                                               ByVal lpSubKey As String, ByVal dwType As Long, _
                                               ByVal lpData As String, ByVal cbData As Long) As Long
 
Public Sub proba()
Dim kWnd As Long
Dim Shto As String
RetVal = RegSetValue(HKEY_LOCAL_MACHINE, 'NetworkLogonusername',0, Shto, kWnd)
MsgBox Shto 'RetVal
End Sub