diff --git a/P3D/Screens/Pokemon/LearnAttackScreen.vb b/P3D/Screens/Pokemon/LearnAttackScreen.vb
index 5d2e200e8..8b783d4a3 100644
--- a/P3D/Screens/Pokemon/LearnAttackScreen.vb
+++ b/P3D/Screens/Pokemon/LearnAttackScreen.vb
@@ -120,26 +120,7 @@
             End If
 
             With Core.SpriteBatch
-                Dim fullText As String = A.Description
-                Dim t As String = ""
-                Dim i As Integer = 0
-                Dim n As String = ""
-                For i = 0 To fullText.Length - 1
-                    Dim c As Char = CChar(fullText(i).ToString().Replace("’", "'"))
-
-                    If c = CChar(" ") Then
-                        If FontManager.MainFont.MeasureString(n & c).X > 170 Then
-                            t &= Environment.NewLine
-                            n = ""
-                        Else
-                            t &= " "
-                            n &= " "
-                        End If
-                    Else
-                        t &= c
-                        n &= c
-                    End If
-                Next
+                Dim Description As String = A.Description.Replace("’", "'").CropStringToWidth(FontManager.MainFont, 240)
 
                 Dim power As String = A.Power.ToString()
                 If power = "0" Then
@@ -151,7 +132,7 @@
                     acc = "-"
                 End If
 
-                .DrawString(FontManager.MainFont, "Power: " & power & Environment.NewLine & "Accuracy: " & acc & Environment.NewLine & Environment.NewLine & t, New Vector2(CInt(p.X + 432 - 300 + AttackPos), p.Y + 40), Color.Black)
+                .DrawString(FontManager.MainFont, "Power: " & power & Environment.NewLine & "Accuracy: " & acc & Environment.NewLine & Environment.NewLine & Description, New Vector2(CInt(p.X + 432 - 300 + AttackPos), p.Y + 40), Color.Black)
                 .Draw(A.GetDamageCategoryImage(), New Rectangle(CInt(p.X + 432 - 144 + AttackPos + 24), CInt(p.Y + 40), 56, 28), Color.White)
             End With
 
@@ -304,7 +285,7 @@
 
     Private Sub FollowUpText()
         TextBox.Show("... " & Pokemon.GetDisplayName() & " learned~" & newAttack.Name & "!")
-        SoundManager.PlaySound("success_small", False)
+        SoundManager.PlaySound("success_small", True)
     End Sub
 
 End Class
\ No newline at end of file