diff --git a/P3D/Network/ChatScreen.vb b/P3D/Network/ChatScreen.vb
index 2382b401a..9d0b9375c 100644
--- a/P3D/Network/ChatScreen.vb
+++ b/P3D/Network/ChatScreen.vb
@@ -974,7 +974,7 @@ Public Class ChatScreen
     ''' <summary>
     ''' Enters a new PM chat.
     ''' </summary>
-    Private Sub EnterPMChat(ByVal newPMChatName As String)
+    Public Sub EnterPMChat(ByVal newPMChatName As String)
         If PMChats.Keys.Contains(newPMChatName) = False Then
             PMChats.Add(newPMChatName, False)
         End If
diff --git a/P3D/Screens/Inventory/PokegearScreen.vb b/P3D/Screens/Inventory/PokegearScreen.vb
index 760cd0ac2..8bc93b56a 100644
--- a/P3D/Screens/Inventory/PokegearScreen.vb
+++ b/P3D/Screens/Inventory/PokegearScreen.vb
@@ -1210,6 +1210,9 @@
                         End If
                     Case 2
                         If sameServer = True Then
+                            Dim chat As New ChatScreen(CurrentScreen)
+                            chat.EnterPMChat(UserName)
+                            Core.SetScreen(chat)
 
                         End If
                     Case 3