Dim b As String = Replace(Application.CommonAppDataPath, Application.CommonAppDataPath.ToString.Split("\")(Application.CommonAppDataPath.ToString.Split("\").Length - 1), "")