B4J Question Mac OSX problem

Mikes-Mac-mini:dropbox mike$ java -jar btcdesktop.jar

keyvaluestore._initialize (java line: 129)

java.sql.SQLException: path to '/Users/mike/Library/Containers/ct.bitcoindesktop/Data/Library/UserData/datastoremycoins': '/Users/mike' does not exist

at org.sqlite.Conn.open(Conn.java:103)

at org.sqlite.Conn.<init>(Conn.java:57)

at org.sqlite.JDBC.createConnection(JDBC.java:77)

at org.sqlite.JDBC.connect(JDBC.java:64)

at java.sql.DriverManager.getConnection(DriverManager.java:664)

at java.sql.DriverManager.getConnection(DriverManager.java:247)

at anywheresoftware.b4j.objects.SQL.Initialize2(SQL.java:56)

at anywheresoftware.b4j.objects.SQL.Initialize(SQL.java:45)

at anywheresoftware.b4j.objects.SQL.InitializeSQLite(SQL.java:117)

at ct.bitcoindesktop.keyvaluestore._initialize(keyvaluestore.java:129)

at ct.bitcoindesktop.main._appstart(main.java:494)

at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)

at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)

at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)

at java.lang.reflect.Method.invoke(Method.java:497)

at anywheresoftware.b4a.BA.raiseEvent2(BA.java:90)

at anywheresoftware.b4a.BA.raiseEvent(BA.java:77)

at ct.bitcoindesktop.main.start(main.java:38)

at com.sun.javafx.application.LauncherImpl.lambda$launchApplication1$162(LauncherImpl.java:863)

at com.sun.javafx.application.PlatformImpl.lambda$runAndWait$175(PlatformImpl.java:326)

at com.sun.javafx.application.PlatformImpl.lambda$null$173(PlatformImpl.java:295)

at java.security.AccessController.doPrivileged(Native Method)

at com.sun.javafx.application.PlatformImpl.lambda$runLater$174(PlatformImpl.java:294)

at com.sun.glass.ui.InvokeLaterDispatcher$Future.run(InvokeLaterDispatcher.java:95)

Sub GetDir(SubFolder As String) As String
    Dim JO As JavaObject
    JO.InitializeStatic("anywheresoftware.b4a.BA")
    Dim PackName As String = JO.GetField("packageName")
    Dim UsrName As String = GetSystemProperty("user.name", "")
    UsrName = UsrName.Replace(" ","\ ")
    Dim LibDir As String = "/Users/" & UsrName & "/Library/Containers/" & PackName &"/Data/Library/"
  
    If Not(File.Exists(LibDir & SubFolder,"")) Then
        File.MakeDir(LibDir,SubFolder)
    End If
  
    Return LibDir & SubFolder
End Sub

Log("User.Home Folder: " & GetSystemProperty("user.home","") )